program Project1; //Zadanie 3.19

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=10;

var
 wiersze, kolumny : Integer;

begin
 Writeln('Program wyswietla tabliczke mnozenia dla liczb od 1 do 100.');
 Writeln;

 for wiersze := 1 to n do
  begin
   for kolumny := 1 to n do
    begin
     Write(wiersze*kolumny, #9);
    end;
    Writeln;
  end;

 Readln; //czeka na nacisniecie klawisza Enter
end.
